(define (cont-frac N D k)
    (define (iter i result)
        (if (= i 0)
            result
            (iter (- i 1) (/ (N i) (+ (D i) result)))))
    (iter (- k 1) (/ (N k) (D k))))

(define (tan-cf x k)
    (define (N i)
        (if (= i 1)
            x
            (- (square x))))
    (define (D k)
        (- (* 2 k) 1))
    (cont-frac N D k))

(display "\n========================================\n")
(display (tan-cf 25.0 100))
(newline)
(display (tan 25))
(display "\n========================================\n")
